From 99961a049f727a40d0f3a23de4e9788a564238b5 Mon Sep 17 00:00:00 2001 From: Matthias Meulien Date: Fri, 13 Jun 2014 11:50:38 -0400 Subject: [PATCH] * lisp/simple.el (completion-list-mode-map): Navigate with tab and backtab. Fixes: debbugs:17767 --- lisp/ChangeLog | 9 +++++++++ lisp/simple.el | 12 ++++++------ 2 files changed, 15 insertions(+), 6 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7c338149603..a8fc42e92eb 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,12 @@ +2014-06-13 Matthias Meulien + + * simple.el (completion-list-mode-map): Navigate with tab and backtab + (bug#17767). + +2014-06-13 Stefan Monnier + + * simple.el (set-mark-command): Simplify a bit. + 2014-06-12 Nicolas Richard * help.el (help--key-binding-keymap): New function. diff --git a/lisp/simple.el b/lisp/simple.el index cde169982cb..031aac3a49c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -3842,7 +3842,7 @@ some text between BEG and END, but we're killing the region." ;; Add that string to the kill ring, one way or another. (if (eq last-command 'kill-region) (kill-append string (< end beg)) - (kill-new string nil))) + (kill-new string))) (when (or string (eq last-command 'kill-region)) (setq this-command 'kill-region)) (setq deactivate-mark t) @@ -4741,16 +4741,14 @@ purposes. See the documentation of `set-mark' for more information." (if arg (pop-to-mark-command) (push-mark-command t))) - ((and set-mark-command-repeat-pop - (eq last-command 'pop-to-mark-command)) - (setq this-command 'pop-to-mark-command) - (pop-to-mark-command)) ((and set-mark-command-repeat-pop (eq last-command 'pop-global-mark) (not arg)) (setq this-command 'pop-global-mark) (pop-global-mark)) - (arg + ((or (and set-mark-command-repeat-pop + (eq last-command 'pop-to-mark-command)) + arg) (setq this-command 'pop-to-mark-command) (pop-to-mark-command)) ((eq last-command 'set-mark-command) @@ -6977,6 +6975,8 @@ With a prefix argument, set VARIABLE to VALUE buffer-locally." (define-key map "\e\e\e" 'delete-completion-window) (define-key map [left] 'previous-completion) (define-key map [right] 'next-completion) + (define-key map [?\t] 'next-completion) + (define-key map [backtab] 'previous-completion) (define-key map "q" 'quit-window) (define-key map "z" 'kill-this-buffer) map) -- 2.30.2